src/Cardano/DbSync/Sync.hs:203:9: error:
    • Couldn't match type ‘((), Maybe BSL.ByteString)’ with ‘()’
      Expected type: IO () -> IO ((), Maybe BSL.ByteString)
        Actual type: IO ((), Maybe BSL.ByteString)
                     -> IO ((), Maybe BSL.ByteString)
    • The first argument of ($) takes one argument,
      its type is ‘cat0 a0 c0’,
      it is specialized to ‘IO ((), Maybe BSL.ByteString)
                            -> IO ((), Maybe BSL.ByteString)’
      In the expression:
        liftIO . logException tracer "ChainSyncWithBlocksPtcl: "
          $ do logInfo tracer "Starting ChainSync client"
               setConsistentLevel syncEnv Unchecked
               (latestPoints, currentTip) <- waitRestartState tc
               let (inMemory, onDisk) = List.span snd latestPoints
               ....
      In the second argument of ‘($)’, namely
        ‘\ _ctx channel
           -> liftIO . logException tracer "ChainSyncWithBlocksPtcl: "
                $ do logInfo tracer "Starting ChainSync client"
                     setConsistentLevel syncEnv Unchecked
                     ....’
    |
203 |         liftIO . logException tracer "ChainSyncWithBlocksPtcl: " $ do
    |         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...